home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Modem / WKAUTO 06⁄01⁄92 ƒ / CompileAll < prev    next >
Encoding:
Text File  |  1992-05-28  |  11.6 KB  |  617 lines  |  [TEXT/MACA]
  1. (CompileAll.PROC is part of the WKAUTO.SIT set. A set of White Knight PROCs)
  2. (for accessing CompuServe. Use of any section is deemed to be use of the set.)
  3. (The set is shareware and a fee of $10 is payable to:)
  4. (Alex Narvey)
  5. (Thunder Enlightening Press)
  6. (P.O. Box 332, 905 Corydon Ave.)
  7. (Winnipeg, MB, Canada  R3M 3V3)
  8. (Telephone/FAX 204/488-8306)
  9. (CompuServe ID #71041,132)
  10. (Version 06/01/92)
  11.  
  12. (Compiles all the PROCs in WKAUTO.SEA)
  13.  
  14. QUIET
  15. COPYINTO X$,PLEASE SELECT FOLDER CONTAINING THE WHITE KNIGHT PROGRAM.
  16. QUERY5
  17. GETVOL W$
  18. IF NO JUMPTO CANCEL
  19. COPYINTO X$, HAVE YOU MADE ALL CHANGES TO TEXT FILES ?
  20. COPYINTO Y$, (E.g. Customized "LogOn", "Calculate", etc.)
  21. COPYINTO Z$, Click YES to Continue.  Click NO to Cancel.
  22. QUERY3
  23. IF NO JUMPTO CANCEL
  24. COPYINTO X$, ARE ALL THE WKAUTO PROC FOLDERS INSIDE YOUR WHITE KNIGHT FOLDER?
  25. COPYINTO Y$, Click YES to Continue,
  26. COPYINTO Z$, Click NO to Cancel.
  27. QUERY3
  28. IF NO JUMPTO CANCEL
  29. COPYINTO X$, COMPILER OPTIONS IS RESET FOR 300 LABEL ROUTINES & DEFINITIONS?
  30. COPYINTO Y$, Click YES to Continue,
  31. COPYINTO Z$, Click NO to Cancel.
  32. QUERY3
  33. IF NO JUMPTO CANCEL
  34. COPYINTO U2$,W$
  35. COPYINTO U3$,W$
  36. COPYINTO U4$,W$
  37. COPYINTO U5$,W$
  38. COPYINTO U6$,W$
  39. COPYINTO U7$,W$
  40. COPYINTO U8$,W$
  41. COPYINTO U9$,W$
  42. COPYINTO V2$,W$
  43. COPYINTO V3$,W$
  44. COPYINTO V4$,W$
  45. COPYINTO V5$,W$
  46. COPYINTO V6$,W$
  47. COPYINTO V7$,W$
  48. COPYINTO V8$,W$
  49. COPYINTO V9$,W$
  50. COPYINTO W2$,W$
  51. COPYINTO W3$,W$
  52. COPYINTO W4$,W$
  53. COPYINTO W5$,W$
  54. COPYINTO W6$,W$
  55. COPYINTO W7$,W$
  56. COPYINTO W8$,W$
  57. COPYINTO W9$,W$
  58. COPYINTO X2$,W$
  59. COPYINTO X3$,W$
  60. COPYINTO X4$,W$
  61. COPYINTO X5$,W$
  62. COPYINTO X6$,W$
  63. COPYINTO X7$,W$
  64. COPYINTO X8$,W$
  65. COPYINTO X9$,W$
  66. COPYINTO Y2$,W$
  67. COPYINTO Y3$,W$
  68. COPYINTO Y4$,W$
  69. COPYINTO Y5$,W$
  70. COPYINTO Y6$,W$
  71. COPYINTO Y7$,W$
  72. COPYINTO Y8$,W$
  73. COPYINTO Y9$,W$
  74. COPYINTO Z2$,W$
  75. COPYINTO Z3$,W$
  76. COPYINTO Z4$,W$
  77. COPYINTO Z5$,W$
  78. COPYINTO Z6$,W$
  79. COPYINTO Z7$,W$
  80. COPYINTO Z8$,W$
  81. COPYINTO Z9$,W$
  82. WATCH ON
  83.  
  84. COPYINTO @0,NOW COMPILING :COMPUSERV PROCs:Calculate
  85. COPYINTO @1,This will take a minute. Please wait.
  86. ERASE @2
  87. @ ON
  88. SHOW@
  89. CONCAT U2$,:COMPUSERV PROCs:Calculate
  90. COMPILE LOUD U2$
  91. IF ERROR JUMPTO EU2
  92.  
  93. @ OFF
  94. COPYINTO @0,NOW COMPILING :COMPUSERV PROCs:DataBuffer
  95. COPYINTO @1,This will take a minute. Please wait.
  96. ERASE @2
  97. @ ON
  98. SHOW@
  99. CONCAT U3$,:COMPUSERV PROCs:DataBuffer
  100. COMPILE LOUD U3$
  101. IF ERROR JUMPTO EU3
  102.  
  103. @ OFF
  104. COPYINTO @0,NOW COMPILING :COMPUSERV PROCs:LogOff
  105. COPYINTO @1,This will take a minute. Please wait.
  106. ERASE @2
  107. @ ON
  108. SHOW@
  109. CONCAT U4$,:COMPUSERV PROCs:LogOff
  110. COMPILE LOUD U4$
  111. IF ERROR JUMPTO EU4
  112.  
  113. @ OFF
  114. COPYINTO @0,NOW COMPILING :COMPUSERV PROCs:LogOn
  115. COPYINTO @1,This will take a minute. Please wait.
  116. ERASE @2
  117. @ ON
  118. SHOW@
  119. CONCAT U5$,:COMPUSERV PROCs:LogOn
  120. COMPILE LOUD U5$
  121. IF ERROR JUMPTO EU5
  122.  
  123. @ OFF
  124. COPYINTO @0,NOW COMPILING :COMPUSERV PROCs:PreAutoSess
  125. COPYINTO @1,This will take a minute. Please wait.
  126. ERASE @2
  127. @ ON
  128. SHOW@
  129. CONCAT U6$,:COMPUSERV PROCs:PreAutoSess
  130. COMPILE LOUD U6$
  131. IF ERROR JUMPTO EU6
  132.  
  133. @ OFF
  134. COPYINTO @0,NOW COMPILING :COMPUSERV PROCs:Report
  135. COPYINTO @1,This will take a minute. Please wait.
  136. ERASE @2
  137. @ ON
  138. SHOW@
  139. CONCAT U7$,:COMPUSERV PROCs:Report
  140. COMPILE LOUD U7$
  141. IF ERROR JUMPTO EU7
  142.  
  143. @ OFF
  144. COPYINTO @0,NOW COMPILING :COMPUSERV PROCs:QB Download
  145. COPYINTO @1,This will take a minute. Please wait.
  146. ERASE @2
  147. @ ON
  148. SHOW@
  149. CONCAT U8$,:COMPUSERV PROCs:QB Download
  150. COMPILE LOUD U8$
  151. IF ERROR JUMPTO EU8
  152.  
  153. @ OFF
  154. COPYINTO @0,NOW COMPILING :COMPUSERV PROCs:Test
  155. COPYINTO @1,This will take a minute. Please wait.
  156. ERASE @2
  157. @ ON
  158. SHOW@
  159. CONCAT U9$,:COMPUSERV PROCs:Test
  160. COMPILE LOUD U9$
  161. IF ERROR JUMPTO EU9
  162.  
  163. @ OFF
  164. COPYINTO @0,NOW COMPILING :DOWN PROCs:PreDowFile
  165. COPYINTO @1,This will take a minute. Please wait.
  166. ERASE @2
  167. @ ON
  168. SHOW@
  169. CONCAT V2$,:DOWN PROCs:PreDowFile
  170. COMPILE LOUD V2$
  171. IF ERROR JUMPTO EV2
  172.  
  173. @ OFF
  174. COPYINTO @0,NOW COMPILING :DOWN PROCs:DowFile
  175. COPYINTO @1,This will take a minute. Please wait.
  176. ERASE @2
  177. @ ON
  178. SHOW@
  179. CONCAT V3$,:DOWN PROCs:DowFile
  180. COMPILE LOUD V3$
  181. IF ERROR JUMPTO EV3
  182.  
  183. @ OFF
  184. COPYINTO @0,NOW COMPILING :FAX PROCs:PreFax
  185. COPYINTO @1,This will take a minute. Please wait.
  186. ERASE @2
  187. @ ON
  188. SHOW@
  189. CONCAT V4$,:FAX PROCs:PreFax
  190. COMPILE LOUD V4$
  191. IF ERROR JUMPTO EV4
  192.  
  193. @ OFF
  194. COPYINTO @0,NOW COMPILING :FAX PROCs:Fax
  195. COPYINTO @1,This will take a minute. Please wait.
  196. ERASE @2
  197. @ ON
  198. SHOW@
  199. CONCAT V5$,:FAX PROCs:Fax
  200. COMPILE LOUD V5$
  201. IF ERROR JUMPTO EV5
  202.  
  203. @ OFF
  204. COPYINTO @0,NOW COMPILING :MAIL PROCs:CheckForMail
  205. COPYINTO @1,This will take a minute. Please wait.
  206. ERASE @2
  207. @ ON
  208. SHOW@
  209. CONCAT V6$,:MAIL PROCs:CheckForMail
  210. COMPILE LOUD V6$
  211. IF ERROR JUMPTO EV6
  212.  
  213. @ OFF
  214. COPYINTO @0,NOW COMPILING :MAIL PROCs:GetMail
  215. COPYINTO @1,This will take a minute. Please wait.
  216. ERASE @2
  217. @ ON
  218. SHOW@
  219. CONCAT V7$,:MAIL PROCs:GetMail
  220. COMPILE LOUD V7$
  221. IF ERROR JUMPTO EV7
  222.  
  223. @ OFF
  224. COPYINTO @0,NOW COMPILING :MAIL PROCs:Mail
  225. COPYINTO @1,This will take a minute. Please wait.
  226. ERASE @2
  227. @ ON
  228. SHOW@
  229. CONCAT V8$,:MAIL PROCs:Mail
  230. COMPILE LOUD V8$
  231. IF ERROR JUMPTO EV8
  232.  
  233. @ OFF
  234. COPYINTO @0,NOW COMPILING :MAIL PROCs:PreMail
  235. COPYINTO @1,This will take a minute. Please wait.
  236. ERASE @2
  237. @ ON
  238. SHOW@
  239. CONCAT V9$,:MAIL PROCs:PreMail
  240. COMPILE LOUD V9$
  241. IF ERROR JUMPTO EV9
  242.  
  243. @ OFF
  244. COPYINTO @0,NOW COMPILING :MAIL PROCs:PreTip
  245. COPYINTO @1,This will take a minute. Please wait.
  246. ERASE @2
  247. @ ON
  248. SHOW@
  249. CONCAT W2$,:MAIL PROCs:PreTip
  250. COMPILE LOUD W2$
  251. IF ERROR JUMPTO EW2
  252.  
  253. @ OFF
  254. COPYINTO @0,NOW COMPILING :MAIL PROCs:Tip
  255. COPYINTO @1,This will take a minute. Please wait.
  256. ERASE @2
  257. @ ON
  258. SHOW@
  259. CONCAT W3$,:MAIL PROCs:Tip
  260. COMPILE LOUD W3$
  261. IF ERROR JUMPTO EW3
  262.  
  263. @ OFF
  264. COPYINTO @0,NOW COMPILING :MENU PROCs:CISMenu
  265. COPYINTO @1,This will take a minute. Please wait.
  266. ERASE @2
  267. @ ON
  268. SHOW@
  269. CONCAT W4$,:MENU PROCs:CISMenu
  270. COMPILE LOUD W4$
  271. IF ERROR JUMPTO EW4
  272.  
  273. @ OFF
  274. COPYINTO @0,NOW COMPILING :MENU PROCs:PreMenu
  275. COPYINTO @1,This will take a minute. Please wait.
  276. ERASE @2
  277. @ ON
  278. SHOW@
  279. CONCAT W5$,:MENU PROCs:PreMenu
  280. COMPILE LOUD W5$
  281. IF ERROR JUMPTO EW5
  282.  
  283. @ OFF
  284. COPYINTO @0,NOW COMPILING :SUMMARY PROCs:PreDowSum
  285. COPYINTO @1,This will take a minute. Please wait.
  286. ERASE @2
  287. @ ON
  288. SHOW@
  289. CONCAT X9$,:SUMMARY PROCs:PreDowSum
  290. COMPILE LOUD X9$
  291. IF ERROR JUMPTO EX9
  292.  
  293. @ OFF
  294. COPYINTO @0,NOW COMPILING :SUMMARY PROCs:DowSum
  295. COPYINTO @1,This will take a minute. Please wait.
  296. ERASE @2
  297. @ ON
  298. SHOW@
  299. CONCAT Y2$,:SUMMARY PROCs:DowSum
  300. COMPILE LOUD Y2$
  301. IF ERROR JUMPTO EY2
  302.  
  303. @ OFF
  304. COPYINTO @0,NOW COMPILING :UP PROCs:PreUpFile
  305. COPYINTO @1,This will take a minute. Please wait.
  306. ERASE @2
  307. @ ON
  308. SHOW@
  309. CONCAT Y3$,:UP PROCs:PreUpFile
  310. COMPILE LOUD Y3$
  311. IF ERROR JUMPTO EY3
  312.  
  313. @ OFF
  314. COPYINTO @0,NOW COMPILING :UP PROCs:UpFile
  315. COPYINTO @1,This will take a minute. Please wait.
  316. ERASE @2
  317. @ ON
  318. SHOW@
  319. CONCAT Y4$,:UP PROCs:UpFile
  320. COMPILE LOUD Y4$
  321. IF ERROR JUMPTO EY4
  322.  
  323. @ OFF
  324. COPYINTO @0,NOW COMPILING :ZMAC PROCs:PreZmac
  325. COPYINTO @1,This will take a minute. Please wait.
  326. ERASE @2
  327. @ ON
  328. SHOW@
  329. CONCAT Y5$,:ZMAC PROCs:PreZmac
  330. COMPILE LOUD Y5$
  331. IF ERROR JUMPTO EY5
  332.  
  333. @ OFF
  334. COPYINTO @0,NOW COMPILING :ZMAC PROCs:Zmac
  335. COPYINTO @1,This will take a minute. Please wait.
  336. ERASE @2
  337. @ ON
  338. SHOW@
  339. CONCAT Y6$,:ZMAC PROCs:Zmac
  340. COMPILE LOUD Y6$
  341. IF ERROR JUMPTO EY6
  342.  
  343. @ OFF
  344. COPYINTO @0,NOW COMPILING :CONTROL Keys
  345. COPYINTO @1,This will take a minute. Please wait.
  346. ERASE @2
  347. @ ON
  348. SHOW@
  349. CONCAT Z9$,:CONTROL Keys:Control A
  350. GOSUB RESETCONTROL
  351. CONCAT Z9$,:CONTROL Keys:Control C
  352. GOSUB RESETCONTROL
  353. CONCAT Z9$,:CONTROL Keys:Control P
  354. GOSUB RESETCONTROL
  355. CONCAT Z9$,:CONTROL Keys:Control Q
  356. GOSUB RESETCONTROL
  357. CONCAT Z9$,:CONTROL Keys:Control S
  358. GOSUB RESETCONTROL
  359.  
  360. @ OFF
  361. COPYINTO @0,NOW COMPILING :GO Commands
  362. COPYINTO @1,This will take a minute. Please wait.
  363. ERASE @2
  364. @ ON
  365. SHOW@
  366. CONCAT Z9$,:GO Commands:Go Acius
  367. GOSUB RESET
  368. CONCAT Z9$,:GO Commands:Go Adobe
  369. GOSUB RESET
  370. CONCAT Z9$,:GO Commands:Go AldusCustSer
  371. GOSUB RESET
  372. CONCAT Z9$,:GO Commands:Go AldusSiliconBeach
  373. GOSUB RESET
  374. CONCAT Z9$,:GO Commands:Go DTP
  375. GOSUB RESET
  376. CONCAT Z9$,:GO Commands:Go DTPVendor
  377. GOSUB RESET
  378. CONCAT Z9$,:GO Commands:Go MacApp
  379. GOSUB RESET
  380. CONCAT Z9$,:GO Commands:Go MacAVEN
  381. GOSUB RESET
  382. CONCAT Z9$,:GO Commands:Go MacBVEN
  383. GOSUB RESET
  384. CONCAT Z9$,:GO Commands:Go MacClub
  385. GOSUB RESET
  386. CONCAT Z9$,:GO Commands:Go MacCom
  387. GOSUB RESET
  388. CONCAT Z9$,:GO Commands:Go MacCVEN
  389. GOSUB RESET
  390. CONCAT Z9$,:GO Commands:Go MacDev
  391. GOSUB RESET
  392. CONCAT Z9$,:GO Commands:Go MacFF
  393. GOSUB RESET
  394. CONCAT Z9$,:GO Commands:Go MacFun
  395. GOSUB RESET
  396. CONCAT Z9$,:GO Commands:Go MacHyper
  397. GOSUB RESET
  398. CONCAT Z9$,:GO Commands:Go MacSeven
  399. GOSUB RESET
  400. CONCAT Z9$,:GO Commands:Go MacSys
  401. GOSUB RESET
  402. CONCAT Z9$,:GO Commands:Go MSWord
  403. GOSUB RESET
  404. CONCAT Z9$,:GO Commands:Go MSExcel
  405. GOSUB RESET
  406. CONCAT Z9$,:GO Commands:Go NorUtil
  407. GOSUB RESET
  408. CONCAT Z9$,:GO Commands:Go Symantec
  409. GOSUB RESET
  410. CONCAT Z9$,:GO Commands:Go Ventura
  411. GOSUB RESET
  412. CONCAT Z9$,:GO Commands:Go Word Perf 1
  413. GOSUB RESET
  414. CONCAT Z9$,:GO Commands:Go Word Perf 2
  415. GOSUB RESET
  416. CONCAT Z9$,:GO Commands:Go Fifth
  417. GOSUB RESET
  418. CONCAT Z9$,:GO Commands:Go Work
  419. GOSUB RESET
  420. CONCAT Z9$,:GO Commands:Go ZMAC
  421. GOSUB RESET
  422.  
  423. WATCH OFF
  424. @ OFF
  425. COPYINTO @0,PREPARING PRE MENU
  426. COPYINTO @1,This will take a minute. Please wait.
  427. ERASE @2
  428. @ ON
  429. SHOW@
  430. COPYINTO Z9$,W$
  431. CONCAT Z9$,:MENU PROCs:PreMenu.PROC
  432. NEST Z9$
  433. @ OFF
  434. COPYINTO X$, FINISHED COMPILING PROCs.
  435. QUERY5
  436. JUMPTO FINISH
  437.  
  438. :EU2
  439. COPYINTO X$, SORRY, ERROR IN Calculate SCRIPT.
  440. QUERY5
  441. JUMPTO FINISH
  442. :EU3
  443. COPYINTO X$, SORRY, ERROR IN DataBuffer SCRIPT.
  444. QUERY5
  445. JUMPTO FINISH
  446. :EU4
  447. COPYINTO X$, SORRY, ERROR IN LogOff SCRIPT.
  448. QUERY5
  449. JUMPTO FINISH
  450. :EU5
  451. COPYINTO X$, SORRY, ERROR IN LogOn SCRIPT.
  452. QUERY5
  453. JUMPTO FINISH
  454. :EU6
  455. COPYINTO X$, SORRY, ERROR IN PreAutoSess SCRIPT.
  456. QUERY5
  457. JUMPTO FINISH
  458. :EU7
  459. COPYINTO X$, SORRY, ERROR IN Report SCRIPT.
  460. QUERY5
  461. JUMPTO FINISH
  462. :EU8
  463. COPYINTO X$, SORRY, ERROR IN QB Download SCRIPT.
  464. QUERY5
  465. JUMPTO FINISH
  466. :EU9
  467. COPYINTO X$, SORRY, ERROR IN Test SCRIPT.
  468. QUERY5
  469.  
  470. :EV2
  471. COPYINTO X$, SORRY, ERROR IN DowFile SCRIPT.
  472. QUERY5
  473. JUMPTO FINISH
  474. :EV3
  475. COPYINTO X$, SORRY, ERROR IN PreDowFile SCRIPT.
  476. QUERY5
  477. JUMPTO FINISH
  478. :EV4
  479. COPYINTO X$, SORRY, ERROR IN Fax SCRIPT.
  480. QUERY5
  481. JUMPTO FINISH
  482. :EV5
  483. COPYINTO X$, SORRY, ERROR IN PreFax SCRIPT.
  484. QUERY5
  485. JUMPTO FINISH
  486. :EV6
  487. COPYINTO X$, SORRY, ERROR IN CheckForMail SCRIPT.
  488. QUERY5
  489. JUMPTO FINISH
  490. :EV7
  491. COPYINTO X$, SORRY, ERROR IN GetMail SCRIPT.
  492. QUERY5
  493. JUMPTO FINISH
  494. :EV8
  495. COPYINTO X$, SORRY, ERROR IN Mail SCRIPT.
  496. QUERY5
  497. JUMPTO FINISH
  498. :EV9
  499. COPYINTO X$, SORRY, ERROR IN PreMail SCRIPT.
  500. QUERY5
  501.  
  502. :EW2
  503. COPYINTO X$, SORRY, ERROR IN PreTip SCRIPT.
  504. QUERY5
  505. JUMPTO FINISH
  506. :EW3
  507. COPYINTO X$, SORRY, ERROR IN Tip SCRIPT.
  508. QUERY5
  509. JUMPTO FINISH
  510. :EW4
  511. COPYINTO X$, SORRY, ERROR IN CISMenu SCRIPT.
  512. QUERY5
  513. JUMPTO FINISH
  514. :EW5
  515. COPYINTO X$, SORRY, ERROR IN PreMenu SCRIPT.
  516. QUERY5
  517. JUMPTO FINISH
  518. :EW6
  519. COPYINTO X$, SORRY, ERROR IN   SCRIPT.
  520. QUERY5
  521. JUMPTO FINISH
  522. :EW7
  523. COPYINTO X$, SORRY, ERROR IN   SCRIPT.
  524. QUERY5
  525. JUMPTO FINISH
  526. :EW8
  527. COPYINTO X$, SORRY, ERROR IN   SCRIPT.
  528. QUERY5
  529. JUMPTO FINISH
  530. :EW9
  531. COPYINTO X$, SORRY, ERROR IN   SCRIPT.
  532. QUERY5
  533. JUMPTO FINISH
  534. :EX2
  535. COPYINTO X$, SORRY, ERROR IN   SCRIPT.
  536. QUERY5
  537. JUMPTO FINISH
  538. :EX3
  539. COPYINTO X$, SORRY, ERROR IN  SCRIPT.
  540. QUERY5
  541. JUMPTO FINISH
  542. :EX4
  543. COPYINTO X$, SORRY, ERROR IN  SCRIPT.
  544. QUERY5
  545. JUMPTO FINISH
  546. :EX5
  547. COPYINTO X$, SORRY, ERROR IN  SCRIPT.
  548. QUERY5
  549. JUMPTO FINISH
  550. :EX6
  551. COPYINTO X$, SORRY, ERROR IN  SCRIPT.
  552. QUERY5
  553. JUMPTO FINISH
  554. :EX7
  555. COPYINTO X$, SORRY, ERROR IN  SCRIPT.
  556. QUERY5
  557. JUMPTO FINISH
  558. :EX8
  559. COPYINTO X$, SORRY, ERROR IN  SCRIPT.
  560. QUERY5
  561. JUMPTO FINISH
  562. :EX9
  563. COPYINTO X$, SORRY, ERROR IN PreDowSum SCRIPT.
  564. QUERY5
  565. JUMPTO FINISH
  566. :EY2
  567. COPYINTO X$, SORRY, ERROR IN DowSum SCRIPT.
  568. QUERY5
  569. JUMPTO FINISH
  570. :EY3
  571. COPYINTO X$, SORRY, ERROR IN PreUpFile SCRIPT.
  572. QUERY5
  573. JUMPTO FINISH
  574. :EY4
  575. COPYINTO X$, SORRY, ERROR IN UpFile SCRIPT.
  576. QUERY5
  577. JUMPTO FINISH
  578. :EY5
  579. COPYINTO X$, SORRY, ERROR IN PreZmac SCRIPT.
  580. QUERY5
  581. JUMPTO FINISH
  582. :EY6
  583. COPYINTO X$, SORRY, ERROR IN Zmac SCRIPT.
  584. QUERY5
  585. JUMPTO FINISH
  586. :EZ9
  587. COPYINTO X$, SORRY, ERROR IN GO Commands SCRIPT.
  588. QUERY5
  589. JUMPTO FINISH
  590. :AZ9
  591. COPYINTO X$, SORRY, ERROR IN CONTROL Keys SCRIPT.
  592. QUERY5
  593. JUMPTO FINISH
  594.  
  595. :FINISH
  596. BELL
  597. END
  598.  
  599. :RESETCONTROL
  600. COMPILE LOUD Z9$
  601. IF ERROR JUMPTO AZ9
  602. ERASE Z9$
  603. COPYINTO Z9$,W$
  604. RETURN
  605.  
  606. :RESET
  607. COMPILE LOUD Z9$
  608. IF ERROR JUMPTO EZ9
  609. ERASE Z9$
  610. COPYINTO Z9$,W$
  611. RETURN
  612.  
  613. :CANCEL
  614. BELL
  615. TYPE The procedure has been cancelled at the User's request^M
  616.  
  617.